home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / mmedia / system / ap2 / scripts / m1_____2.p2s < prev    next >
Encoding:
Text File  |  1994-05-05  |  1.3 KB  |  52 lines
  1. ###########################################################################
  2. #
  3. # BRIEF TEST DESCRIPTION: Open, load type 0 midi file and play to
  4. # completion
  5. #
  6. ###########################################################################
  7. #
  8. #   OPEN THE MIDIPLAYER
  9. #   WAIT FOR SUCCESSFUL OPEN
  10. #
  11. ############################################
  12. #
  13. open sequencer00 alias midi1 notify
  14. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_OPEN #1
  15. @WAIT_NOTIFY 1 30000
  16. acquire midi1
  17. @WAIT_PASSDEVICE midi1
  18. ############################################
  19. #
  20. #   LOAD AND CUE TYPE0.MID FILE
  21. #
  22. ############################################
  23. #
  24. load midi1 ?AP2PATH?type0.mid notify
  25. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_LOAD #2
  26. @WAIT_NOTIFY 2 30000
  27. acquire midi1
  28. @WAIT_PASSDEVICE midi1
  29. cue midi1 output notify
  30. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CUE
  31. ############################################
  32. #
  33. #  play type0.mid
  34. #
  35. ############################################
  36. #
  37. play midi1 notify
  38. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PLAY #3
  39. @WAIT_NOTIFY 3 125000
  40. ############################################
  41. #
  42. #   CLOSE THE MIDIPLAYER AND EXPECT A
  43. #   SUCCESSFUL CLOSE
  44. #
  45. ############################################
  46. #
  47. close midi1 notify
  48. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #4
  49. @WAIT_NOTIFY 4 30000
  50. #
  51. #
  52.